Dashboard

Column

Top 10 Cuisine(in number) vs. Score in MANHATTAN

rt_clean %>%
  filter(boro == "MANHATTAN") %>% 
  mutate(cuisine_description = fct_reorder(cuisine_description, score)) %>%
  plot_ly(y = ~ score, x = ~ cuisine_description, color = ~ cuisine_description,
          type = "box", colors = "viridis") %>% 
  layout(
    xaxis = list(title = "Top 10 Cuisine(in number)"),
    yaxis = list(title = "Score")
  )

## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

Column

Grade of Chinese food restaurants in different areas in NY

ch_grade = rt_clean %>% 
  filter(cuisine_description == "Chinese") %>%
  mutate(boro = factor(boro)) %>% 
  mutate(
    boro = fct_infreq(boro)) %>%
  ggplot(aes(x = boro, fill = grade)) + 
  geom_bar()
ggplotly(ch_grade)

Score vs. Grade.date

rt_clean %>%
  mutate(text_label = str_c("Grade: ", grade, "\nResturants: ", dba)) %>%
  plot_ly(x = ~ grade_date, y = ~ score, color = ~ boro, text = ~ text_label,
    alpha = .5, type = "scatter", mode = "markers") %>% 
  layout(
    xaxis = list(title = "Grade Date"),
    yaxis = list(title = "Score")
  )